Voorbeeld van de functie NPV

Dit voorbeeld maakt gebruik van de functie NPV om de netto huidige waarde te geven van een reeks periodieke cash flows in de matrix Values(). RetRate vertegenwoordigt de vaste interne rentabiliteit.

Dim Fmt, Guess, RetRate, NetPVal, Msg
Static Values(5) As Double    ' Stelt een matrix samen.
Fmt = "###.##0,00"    ' Definieer valutanotatie.
Guess = .1    ' Geschatte rentabiliteit begint op 10 procent.
RetRate = .0625    ' Stel vaste interne rentabiliteit in.
Values(0) = -70000    ' Opstartkosten van bedrijf.
' Positieve cash flows die inkomsten voor vier opeenvolgende jaren uitdrukken.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
NetPVal = NPV(RetRate, Values())    ' Bereken netto huidige waarde.
Msg = "De netto huidige waarde van deze cash flows is "
Msg = Msg & Format(NettoPVal, Fmt) & "."
MsgBox Msg    ' Geef netto huidige waarde weer.